Программа читает символ с клавиатуры и выводит на экран
этот символ и соответствующий ему внутренний код
Program Code_of_Char;
var
ch: Char; {Эта переменная хранит значение символа}
begin
Write('Введите любой символ:');
ReadLn(ch); {Читаем один символ}
WriteLn(ch, ' = ', ord(ch)); {Преобразуем его к целому и выводим на экран}
end.